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ZTITLE ‘Node File Routines for Network Management’ 
MODULE NMLNODFIL ( 


LANGUAGE (BL1SS$32) 

ADDRESSING_MODE (NONE XTERNAL = =GENERAL), 
ADDRESS ING- MOD o (EXTERNAL= GENERAL), 
IDENT = 'v04- 


BEGIN 


Lee REAR AREA AAA EEE 


VR RRA AAA A AAA AEE AAA AEA EAA AAA AAA ARREARS 
' 


'ee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS age | UNDER A LICENSE AND MAY BE USED AND COPIED 
DANCE WIT HE F L THE 

COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 

TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

oeokatibn. " NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


IBILITY FOR THE USE OR _ OF ITS 
H IS NOT SUPPLIED BY DIGITAL 


: FACILITY: DECnet Network Management Listener (NML) 


i ABSTRACT: 


eae eeeeeneeeeeeeeneennne 


This module contains routines which manage the node permanent database 


files used by network management. This file contains permanent data 


about the configuration of nodes in the network. 


When AREA support was added to DECner, the node database grew to a 
size that made the old database too slow (a SHOW NODE A od searched 
through the database reading one record at a time, until FOO was 
found. This module was created to use a four keyed file kee 
allows single $GETs and $PUTs for each node, which is much faster. 
=< orher entities permanent databases have been left in the old 
ormat. 


i ENVIRONMENT: VAX/VMS Operating System 
' AUTHOR: Kathy Perko . CREATION DATE: 6-July-1983 
i MODIFIED BY: 


v03-005 MKP0005 Kathy Perko 2-July-1984 


NMI 
v0é 
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v03-004 


v03-003 


v03-002 


v03-001 


-Sep-19 


Fix previous fix so that PURGE KNOWN NODES works. The 

RFA is fpeeree when a record is deleted, so the check 

to see if the RFA has changed between passes, and the subsequent 
SGET gets an EOF. Enhance the RFA check to skip the 

SGET if the RFA is zero. 


MKPO0004 Rothy Perko eo~narti=1906 
Change NMLSREAD_KNOWN_NODE_REC to save the RFA (record file 
address) in case an intermediate operation (between the 
sequential reads) moves the ‘next record’’. If the RFA 

has alate do a $GET before reading the next node 

record. 


MKP0003 Kathy Perko 31-Mar-1984 
Move the node database conversion to the upgrade module 
(NMLUPGRAD ) 


MKP0002 Kathy Perko 2-Mar-1984 
Fix node file create to use default name string of 
SYSSSYSTEM: .DAT. 


MKPO001 Kathy Perko 7-Feb-1984 

When converting the node database from the old format 

to the new, do the conversion to a temporary file in case 
the system crashes part way through. ename the file to 
it's correct name when done. 


F4 
1erSep= 1986 12:50:15 ENML.SRCINMLNODFIL “B32; 
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, 
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| - Definitions . 14-Sep-1986 13:86:98 EMM sre NMLNODF IL .B32; «23 
; 87 1 ZSBTTL ‘Definitions’ | ; 
i: 8 O88 1: | 3 
; 90 0 1 ! TABLE OF CONTENTS: : 
; 4 344 } : : 
: 3 3¢ | FORWARD ROUTINE | : 
>; «9% 93 1 NMLSOPEN NODE FILE ! Open node database file ‘ 
: 95 0094 1 NMLSCLOSE_ NODE FILE, i Close node database file ; 
5% 0095 1 SREAD NODE REC ! Read a record from node database file : 
bu TF 44] 1 NMLSWRITE NODE REC : Write a record from node database file : 
3 38 97 «1 NMLSDELET NODE_REC, ' Delete a record from node database file : 
; 9 1 L : Set up key used to access node db. : 
: 100 099 1 NMLSREAD_LOOPNODE ! Get a loopnode for a specified circuit : 
: 101 100 1 NMLSREAD-KNOWN_NODE_REC, i Read known records from node 3 
; 3 0101 +1 : database file : 
; 8186 1 NMLSCREATE_NODE_DB, ! Create new node database file : 
; is 319? ! NMLSCONNECT_NODE_RAB; ! Connect RAB for node database file : 
: 106 0105 1 ! INCLUDE FILES: ; 
eT | i 
: 109 $108 1 LIBRARY ‘LIBS:NMLLIB.L32'; : 
E 110 0109 1 LIBRARY ‘SHRLIBS:NMALIBRY.L32'; : 
1: 101 0110 1 LIBRARY ‘SYSSLIBRARY:STARLET.L32'; : 
: 418 O12 1 | | 
3; 194 o118 1 | OWN STORAGE: ; 
: ie O115 1 OWN | 
[> 19? 0116 1 nmi $a_netnode_fab: $FAB_DECL, ; 
3; 6198 0117 (1 nm $a_netnode_rab: SRAB_DECL : 
: 119 0118 1 nml$a-protectTon_xab: $XABPRO_DECL, ; 
: 120 0119 1 nml$a_summary_xab: XABSUM_DECL, : 
; 12 0120 1 nmi $a_node_address_xab: SXABKEY_DECL, : 
: 166 0121 1 nm\$a_node_name_xab: $XABKEY_DECL, 8 
s Ve O158 1 nml$a_node_type_xab: SXABKEY_DECL, 3 
3: «126 01 1 nml$a_node_list_xab: SXABKEY DECL : 
: 185 Qigg 1 nmlSt_key_Value? VECTOR C3, WORD]; ; 
: 127 0126 1 GLOBAL ; 
: 128 4 7 1 nml$gq_node_file_dsc : VECTOR (2) ; 
: 129 128 #1 INITIAL (XZCHARCOUNT ('NETNODE') ; 
; if i 9 UPLIT BYTE (*NETNODE')5; : 
i 18 131 1 EXTERNAL LITERAL | : 
s 3 4 ¢ 1 nal$_nodcvterr; : 
i 133 O134 | | 
; 136 : 5 ' ; Declare common NML external references. : 
: 13 : ! $nml_extdef; : 
; 140 1 § 1 EXTERNAL ROUTINE ; 
; «161 140 1 nma$searchfid, ; 
: Hs 141 1 nal$chkfileio, : 
: 16 142 1 nal $upgrade_perm_dbs, ‘ 


mn i ee 


woggahigafousines for Network Management fB-sto-t984 00:28:08 VARY BUistad3, Ye -B3049 ne 


i 

t 
143 (1 nm $debug_txt, 
144 1 nm $logfiteop, 
13? : nm $logrecordop; 


: 


g 


nmi Sopen_node_file Open node permanent databas 14-Sep- NML.SRCIJNMLNODF IL.B3 


ZSBTTL 'nml$open_node_file Open node permanent database file’ 
GLOBAL ROUTINE nmlSopen_node_file = 
les 
' FUNCTIONAL DESCRIPTION: 
: This routine opens the node permanant database file. 
FORMAL PARAMETERS: 

None 


ROUTINE VALUE: 
COMPLETION CODES: 
Failure or RMS error 


BEGIN 


LOCAL 
fab: REF BBLOCK, 
status; 


PEA MAMAN 


MEUM OCONOU EW OOO~ 


Status = rms$_suc; 

fab = nml$a_netnode_fab; 

IF fap Ltebsu_ itt) EQL 0 THEN ' If file isn't open, do it. 
' 


i Open node database. If there isn't one, create a new node database 
! file. If the open succeeds, but the tile only has one key, it's the 
old node database format, so convert it. 


P SFAB_INIT ( FAB = .fab, 
P FAC = (GET,PUT,UPD,DEL), 
P = 'SYS$SYSTEM: .DAT’. ! Default filename string 
B FNA = .nml$gq_node_file_dsc fi. 
& FNS = falSoq node file dsc (OJ, ; 
Pp SHR = (UPD, POT, GET, DEL), ' File sharing options 
B eae = nml$a_summary_xab ! XAB Chain 
SXABSUM_INIT (XAB = nml$a_summary_xab); ! XAB address 


status = SOPEN (FAB = .fab); 
If .status THEN 
EGIN 


A 4 het tr tet tet FP RP PRN RPA NH 8 
OO NAN EWI OOOVNOA UNE WIN - O0Oan 


DTA AUT BS BB BB AIAN AAAI NIAAA AI IOP 2 tt ot 


LAV LS SSVFEARRAVALSSSVSARANLSSSISAFARTISSSVFEARFUNLSS 


SESESS 


i If the node file has one key, it's the old node database format, 
' so do a conversion to the new format. 


if .nml$a_summary_xab Cxab$b_nok] EQL 1 THEN 
BEGIN 


oO 
w 


me at ee et a 4 a a — 4 = a = wd ss 4s 2 2 a —) as 9 2. 48 44 YH 
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i Close old permanent database (which was opened using the 
new permanent database XABs, etc.). 


nmi $c Lose_node_file Q; 


PPTUTTTITOLITITILILILILILIRILILILILILILTLIL LIL RIR LiL irrerLiLiLiLik kien ieieikihi irik ii ree eee 33 
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i Do a V4.0 upgrade on the permanent database files. The upgrade 
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04 nmi $open_node_file Open node permanent databas 14-Sep-19 NML.SRCJNMLNODF IL .632; 


NAL 
V' 

; ! procedure will force this call. The procedure involves converting 
' area 0 to either a customer supplied area number or area 1, and 

! it involves converting the node database to a faster format. 


NOu 


' 
status = nm\Supgrade_perm.dbs 0; 
IF “gharus THE 
nm\$a_netnode_fab pfabet fna] = .nml$gq_node_file_dsc pid: 


nml$a_netnode fab [fab$b_fns] = .nml$gq_node_fi‘e_dsc 
status = SOPEN (FAB = . fab); 


END; 
END 
ELSE | 


i If the node database doesn't already exist, create one and 
connect the RAB record stream. 


iF .status EQL rms$_fnf THEN 
status = nml$create_node_db (nml$gq_node_file_dsc, fab); 


' Connect the RAB to the file. 
! If NMLSLOG is defined with file io bit set, log a ‘file opened” 
message. 


if .status THEN 
BEGIN 


PROPIROTORONONUNURD 4 3 te 


status = nml$connect_node_rab (); 
nml\$logfileop (dbg$c_fileTo, 


nmasc_opn_node, 
noe SASCIB ("File opened.')); 


END; 
RETURN .status; 
END; ! of NMLSOPEN_NODE_FILE 
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-TITLE NMLNODFIL meee File Routines for Network Manage 
men 

-IDENT \V04-000\ 

-PSECT SPLITS,NOWRT,NOEXE,2 


45 44 GF GE 54 45 46 90000 P.AAA: . ASCII \NETNODE\ : 

54 41 466 2 3A 4D 45 54 53 59 53 24 53 59 53 00007 P. "ASCII \SYSSSYSTEM: .DAT\ : 
2E 64 65 6€ 65 70 6F 20 65 6C 69 66 B88 P.AAD at) ile opened.\ 3 

9000000¢ 0034 P.AAC: .LONG 12 : 

00000000" 000 eADDRESS P.AAD ; 


.PSECT SCWNS,NOEXE,2 
00000 NAL SA_NETNODE _FAB: 
-BLKB” 80 
00050 NMLSA_NETNODE_RAB: 
-BLKB- 68 


-000 nm\Sopen_node_file Open node permanent databas i NML.SRCJNMLNODF IL B33" 
00094 NMLSA_PROTECTION_XAB: 
-BLK 88 
OO0EC NMLSA_SUAKARY X : 
000F8 NMLSA_NODE ADDRESS _XAB: 
00144 NMLSA_NODE _NAME_XAB: 
-BCKB “76 
00190 NMLSA_NODE TYPE_XAB: 
-BCKB “76 
0010¢ NMLSA_NODE LIST.HAB: 
00228 NML$T_KEY_ VALUE: 
~BLKB 6 
-PSECT $GLOBAL$,NOEXE,2 
00000007 00000 NML$GQ_NODE FILE DSC:: 
00000000" 00004 ADDRESS P.AAA : 
SRMS_PTR= NMLSA_SUMMARY 


.EXTRN NMLS NODCUTERR, NAL S8, EVTSRCTYP 
~EXTRN wit 360_E SRCDSC 


NODF IL Node File Routines for Network Management f-sep-1984 99: g¢: %6 AX-11 Bliss-32 V4.0-74 ¢ Page 7 


~EXTRN NMLS$GW-ACP_CHAN 
~EXTRN NMLSGL -(OGRASK 


NML$GQ_ENTSTRDSC 
“EXTRN NML$AB~QIOBUF F FFER 


NMLSAB_MSGBLOCK 


‘NM SAB RMSEM 
AL BENT INETAB 


TOSS _CHD VER 


TER_ 
JERTFORMAT 
NML$GB_ OPTIONS 


XTRN NMLSGL-PRMCODE, NMLSGL_PRS_FLGS 
XTRN NAL Set LINML_ENTITY 
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«EX NM 
ith NMLSGB- INFO 


1 
Node File Routines for Network Management 15- S$ep-1984 AX-11 Bliss-32 V4.0-74 Page 
nml\Sopen_node_file Open node permanent databas 1 Sep-19 4 90: 6: 9 NML.SRC Met hie to ° 
.EXTRN NML$GQ_NETNAMDSC 
.EXTRN NML$GQ-RECBFDSC 
sEXTRN NML$GW-PRMDESCNT 
eEXTRN SSEARCHFLD, NMLSCHKFILEIO 
“EXTRN NAL SUPGRAD é pgs 
sEXTRN NMLSDEBUG T&T, NALSLOGFILEOP 
“EXTRN NMLSL BERECOR pop 
.EXTRN SY SSOPEN 
-PSECT $CODE$,NOWRT,2 
O7FC 00000 -ENTRY NMLSOPEN NODE_FILE, Save R2,R3,R4,R5,R6,R7,-; 0148 
5A 000000006 9E 9002 OVAB ater BEN R10 : 
59 99000000" 9E 0000 MOVAB NML$GQ ENODE FILE_DSC, R9 : 
38 0000000' 9 0010 MOVAB NALSA AB, Rb ; 
57 00010001 p 0017 MOVL #65537, 3 0 
FF14 F 0001 PUSHAB NAL SA NETNODE _FAB ; 0 
56 DO 000 MOVL R6 7 0 
02 $ 83 900 TSTW CR (R8) : 
03 13 00028 BEQL =«s1$ : 
31 00 A BRW 5$ : 
6E 09 C 609 D MOVCS #0, (SP), #0, #80, (R6) + 0185 
66 5003 BF 80 00035 MOVW #20683, (R6) : 
16 Ab OFOF 8F BO OOO3A MOVW #3855, 22(R6) : 
1F Ab 02 90 00040 MOVB #2, 31(R6) ; 
4 Ab 68 9E 00044 MOVAB NMLSA_SUMMARY_XAB, 36(R6) : 
C Ab 04 Ad 00 00048 MOVL § NML$GO_NODE FILE_DSC+4, 44(R6) ; 
0 A6 00000000' 00 3 00040 MOVAB P.AAB R ; 
4 Ab 69 90 00055 MOVB miss gst NODE_FILE_DSC, 52(R6) ; 
35 Ab OF 90 90099 MOVB R6)~ : 
6E 09 2c 9090 MOVCS (3) #0, #12, SRMS_PTR : 
68 OC16 $F B0 bo0ss mOovw a SRMS_PTR ; 
56 DD 00068 PUSHL  R6 ; 
6A 01 F 9006A CALLS #1, SYSSOPEN : 
57 50D 9060 MOVL RO, STATUS ; 
3¢ 57 5 00 BLBC STATUS, 2$ ; 
1 09 AB 91 0007 CMPB  NMLSA_SUMMARY_XAB+9, #1 ; 
30 12 0007 BNEQ : 
00000000v 00 00 FB 00079 CALLS #0, NMLSCLOSE_NODE FILE : 
000000006 00 0 FB 00080 CALLS #0, NM NMLSUPGRADE_PERM_DBS ; 
57 9 D 9087 MOVL RO, STAT ; 
46 7 A BLBC _—« STATUS, ; 
FF4O 368 04 Ad DO 0008D MOVL § NML$GQ NODE FILE_pDSC+4, : 
NMLS$A_RETNOBDE FAB+44 : 
FF48 CB $9 90 0095 MOVB NMLS$GO_NODE_FILE_DSC, NMLSA_NETNODE_FAB+52 ; 
6 0D 0009 PUSHL : 
6A 01 FB 9A CALLS #1, SYSSOPEN : 
14 1 9D BRB ; 
00018292 8F 57 D1 OF CMPL STATUS, #98962 : 
—E 12 7 BNEQ 3 
4200 8F 8B OOOA PUSHR #*M<R ncdee ; 
00000000v 99 F AC CALLS #2, N NAL CREATE_NODE_DB ; 
D B3 3$: MOVL Ts ; 
1A E Bé 4$: BLBC erATOSS ; 


VOL“OR =a Sopentneder dite ‘Bpen hoge pernakent databas i-Sep-1 884 93:86:98 — ENMC See NAENODE YL -B3e: 1 rage (§/ 


00000000v 99 Fe B CALLS #0, NMLSCONNECT_NODE_RAB 3 0231 
C MOVL RO. STATUS ; 
20000000" FF Bes RaaRMe Felco as 
000000006 Q 3 FB ce CALLS #3, NMLSLOGFILEOP : 
B0 D3 5$: OVL STATUS, RO : 0237 


3; Routine Size: 215 bytes, Routine Base: S$CODE$ + 0000 


~PSECT S$PLITS,NOWRT ,NOEXE ,2 
64 65 73 6F 6C 63 20 65 6C 69 66 $e P.AAF: tt ytile closed\ ; 


SHES. BSH PME 


-LONG 11 

»ADDRESS P.AAF 3 
~EXTRN SYSSCLOSE 

-PSECT SCODES,NOWRT,2 


N 1 
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v04-000 nml$close_node_file Close node perkenent datab 1 300-1382 99:85:98 NML.SRC NAENOBF IL 83074 . (4) 

> 243 40 1 XZSBTTL ‘nmi$close_node_file Close node permanent database file’ : 
3 rf} o ! GLOBAL ROUTINE nmU$cloSe_node_file = : 
; m tg 1 !e4 3 
; rh 0 te } FUNCTIONAL DESCRIPTION: : 
; rs rh : This routine closes the node permanant database file. : 
H 51 8 48 1 ! FORMAL PARAMETERS: ; 
3 26 0249 1! None : 
; 25 0250 1! : 
; ze 8 é) 1 ! ROUTINE VALUE: 3 
5 2? 8 26 : } COMPLETION CODES: : 
s 2 0254 1! Failure or RMS error : 
> 258 0255 1! : 
; @oP 0256 1 !-- 3 
3 $60 0257 1 3 
3 «el 0258 BEGIN 3 
; soe 0259 F 
: $° 0260 LOCAL ; 
; 264 0261 fab : REF BBLOCK, 3 
; $8? 0 6 status; 3 
; 266 026 ; 
; 267 0264 status = nma$_success; : 
; 268 3509 ! 3 
: 269 0266 ! If the file isn't open, don't try to close it. 3 
: 270 0267 ! 3 
; sf 0268 fab = nml$a_netnode_fab; : 
; LC; 0269 IF .fab CfabSw_ifiJ”NEQ 0 THEN 3 
s a7. Osoe BEGIN 3 
3 sre 544 status = SCLOSE (FAB = nml$a_netnode_fab); 3 
: $e $598 ! If NMLSLOG is defined with file io bit set, log a ‘file closed’’ : 
3 144 0274 ! message. 3 
: 278 0275 ‘ 3 
: 144 O508 IF .status THEN 3 
; 280 027 nml$logfileop (dbg$c_fileio, 3 
: 281 0278 nma$c_opn_node, 3 
: see 0279 SASCIB ("File closed')); 5 
; 28 0280 § END; 3 
3; 6284 0281 RETURN .status; 3 
; «285 0282 1 END; ! of nml$c Lose_node_ file ; 


2 
NMLNODF IL Node File Routines for Network Management 6-Sep-1984 90:36:06 AX-11 Bliss-32 V4.0-742 Page 
¥04-000 nml$close_node_file Close node permanent datab 14-Sep-1984 12:50: NML.SRCINMLNODF IL.832;1 (4) 


009¢ .ENTRY NMLSCLOSE_NODE_FILE, Save R2,R3 ; é 
00000000" 00 MOVAB NMLSA_NETNODE_FAB, R3 : : 
} : MOVL #1, STATU : : 

6 MOVAB NMLSA_NETNODE_FAB, FAB : : 

02 Ad ° TSTW giF AB) : ; 

1F EQL ; : ‘ 

53 DD PUSHL R 3 ‘ 

000000006 Q 01 f CALLS #1, SYSS$CLOSE : : 
D MOVL RO, STATUS : : 

1 BLBC _—s STATUS, 1$ : : 

00000000' F PUSHAB P,AAE : : 

re D mova at, =(SP) : : 

000000006 0 FB CALLS #3, NMLSLOGFILEOP : : 
50 BO 6 1$ MOVL STATUS, RO : ; 


; Routine Size: 55 bytes, Routine Base: $CODE$ + 0007 


2 
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v04-000 nml$read_node_rec Get a Record invthe Node Fi 12-Sep-19 4 99:83:98 NHL. SREINMENODE IL 183224 ’ 
; eer 8 8% 1 XSBITL ‘nml$read_node_rec Get a Record in the Node File’ 
; 288 rf 1 GLOBAL ROUTINE nml$read_node_rec (key, key_value_dsc, 
; 289 0285 1 node_type, 
; <0 0286 1 buffer_dsc, data_dsc) = 
3; 2) 0287 1 
; a 0288 1 !++ 
: a7 8 S ! FUNCTIONAL DESCRIPTION: 
3; 99 0291 1! This routine performs $GETs to the node permanent database. The 
: 296 0 38 1! database is organized with one record per node, four keys per 
s eer 0295 1! record. The four keys are: 
; 298 0294 1! node type (executor, remote node, loop node) 
> ay 0295 1! node address 
; 300 0296 1! node name 7 
; 301 Gevr 7 | List node (node address concatenated with node type - 
; $08 0298 1! used for LISTing nodes). 
: 30 0299 1! 
: 304 0300 1 ! FORMAL PARAMETERS: 
: 209 0301 1! 
; 306 0302 1! key key to use to identify the node's record. 
; 37 0303 1! key_value_dsc Descriptor of key value to use to identify the 
; 308 0304 1! node's record. 
; 309 0305 1! node_type Address for er node ig key value 
; 310 0306 1! buf fer_dsc Address of a descriptor of a buffer to use 
z 3 0307 1! data_dsc Address of a descriptor to return descriptor of data 
3 s1§ 0308 1! read. 
ee 0309 1! 
; «314 0310 1 ! ROUTINE VALUE: 
, 319 0311 1 ! COMPLETION CODES: 
s 3516 b3i6 3 
; sir 0313 1! NMA or RMS error status 
3; 318 0314 1! 
>; 319 0315 1 !-- 
; 320 0316 1 
; 321 0317 2 BEGIN 
: Bee 0318 2 
; Ses 0319 2 MAP 
: 324 0320 2 buffer_dsc: REF VECTOR, ! Buffer to use for record 
; $52 O35) data_dsc: REF VECTOR; ! Return data descriptor 
; 358 0393 LOCAL 
: $58 0324 ptr: REF BBLOCK, 
; 329 0325 fab: REF BBLOCK, 
; He 358 rab: REF BBLOCK, 
: 1 3 buf_ptr: REF BBLOCK, 
s Joe 328 local_dsc: VECTOR (2), 
; $47 O35 status; 
; 4 0330 
$ 339 0331 fab = nml$a_netnode_fab; : 
; 3 O36 IF .fab CfabSw_ifiJ~EQL O THEN ! If the node file isn't open 
; 338 ORe7 , _ RETURN . fab Cfab$i_stsJ; ! return open failure status. 
: 339 0335 ! Map the input key parameter to the key of reference number for that 
: 340 O3%9 ! parameter. if the key being used for this operation is different from the 
: ot 33 one the RAB is set up for, switch keys. 
: 48 0339 status = nml_map_keys (nmn$c_get_rec, .key, .key_value_dsc); 
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~ Bre THEN 
rab = nml$a offen ase Fi 
buf_ptr = .Buffer 1); 
rab “frabsu: usz .buffer. dsc (0); 
rab$l_ubf f 


rab .buf_ptr; 


status = $GET (RAB = .rab); 
END; 


IF .status THEN 
BEGIN 


i Don't include keys in descriptor returned to caller. Just return the 


NICE parameters and values. 


OOOCOOCGCOCSOCOSOOOCCOCOOCOOOOOOCCOOOOCOCOOCOOOOOOCOoOOO 32 


i 

a 

; 

3 = 
; data “dsc C1] = .buf_ptr + Amn$k_node_keys_len; 
3 

4 

4 

4 

4 

4 

3 

3 

; 

1€ 


data dsc 9) rab Crab$w_rsz] - nmn$k_node_keys_len; 
Return the node entity type since this is the only key that isn't 
duplicated in the NICE parameters. 
node ete = 
(SE CTONEU -buf_ptr Cnmn$w_key_typ] OF 
Enns. typ. remote): nml$c_node; 
nmn$c_typ_exec nml$c_executor; 
; pranse., typ. “Toepnaéel nml$c_loopnode; 
36 local e*. “taj = “rep —— rszJ; 
37 local—dsc 
Hi ani tiSerscerdee idbgse. =fiteto, 
37 SASCID a Fecord read'), 
37 local_dsc); 
37 END; 
37 3 gag -Status; 
37 ! Of nm\$read_node_rec 


.PSECT $PLITS,NOWRT,NOEXE,2 
64 61 65 72 20 64 72 OF 63 65 72 99040 P.AAH: ASCII \record read\ 
“LONG 11 
“ADDRESS P.AAH 
.EXTRN SYSS$GET 
.PSECT S$CODE$,NOWRT,2 
Is 0000 .ENTRY NMLSREAD_NODE_REC, Save R2,R3,R4 
§ 00 é SUBL2 #8, S$ 
MOVAB NMLSA_NETNODE_FAB, FAB 

85 S00¢ TSTW (FAB) 

F BNEQ $ 


oo 
oo 
oo 
oo 
oo 
So 
So 
So 
o 


3 eocoeens’ 60 
aie 


0284 


0882 


en —— —_ —_ _ 


2 
NMLNODF IL Node File Routines for Network Management 16-5e -1984 222: AX-11 Bliss-32 V4.0=-74 Pa 14 NM 
v04-000 nm\$read_node_rec Get a Record invthe Node Fi 1 30071382 99:85:98 ENML «SRC NMLNODF IL.B32; te (5) vo 
50 08 a0 i i MOVL 8(FAB), RO : 0333 : 
7E 04 AC 7D 00016 18: MOVQ KEY, =(SP) ; 0339 : 
4 DD OOO1A PUSHL # : ; 
00000000v 00 ; F fs CALLS #3, NML_MAP_KEYS : : 
4 D 0 MOVL RO, STATUS : : 
& 4 F 6 BLBC STATUS, 6$ + 0340 : 
3 00000000' 00 99 MOVAB NMLSA_NETNODE_RAB, RAB : O34¢ : 
10 AC DO 00030 MOVL  BUFFER_DSC, RO + 034 : 
5 04 AO D 99 4 MOVL 4(RO),~BUF_PTR : : 
30 Ag BO 00038 MOVW (RO), 32(RAB) + 0344 : 
t a D 00 MOVL  BUF_PTR, 36(RAB) : 0345 : 
DD 0004 PUSHL RAB : 0347 
000000006 00 gi FB 004 CALLS #1, SYSS$GET : 
54 0 pO 0004 MOVL RO, STATUS : 
52 54 £9 0004C BLBC STATUS, 6$ + 0350 
50 14 AC bo O04F MOVL DATA DSc, RO : 0356 
60 22. =A s 0093 MOVZWL 34(RAB), (RO) : 
60 OA C2 0005 SUBL2 #10, (RO) : 
04 Ad OA A3 9E BO05A MOV 10(R3), 4(RO) : 0357 
50 02 Ad 3C 0005F MOVZWL 2(BUF_PTR), RO : 0363 
01 50 81 90063 CMPW SRO, wT : 0365 
05 12 0066 BNEQ 2$ : 
50 03 D0 0006 MOVL #3, RO : 
16 11 00068 BRB 5$ : 
50 D5 0006D 2$: TSTL RO : 0366 
05 if 0006F BNEQ 3$ : 
50 07 00 00071 MOVL #7, RO ; 
OD 11 00074 BRB 5$ : 
02 50 B81 90076 3$: CMPW = séRO, #2 : 0367 
05 13 00079 BEQL 4$ : 
50 01 CE Spore MNEGL #1, RO : 
03 11 O007E BRB 5$ F 
50 05 00 90080 4$: MOVL #5, RO ; 
oc BC 50 b0 00083 5$: MOVL RO, @NODE_TYPE : 0363 
a3 22 Ae C 00087 MOVZWL 34(RAB), COCAL_DSC : 0369 
06 AE 53 DO 00088 MOVL BUF_PTR, LOCAL~DSC+4 : 0370 
5E DD 0008F PUSHL SP : 0371 
00000000" 00 9F 00091 PUSHAB P. : 0373 
7E 01 7D 00097 vo #1, =(SP) : 0371 
000000006 00 04 FB 0009 CALLS #4, NMLSLOGRECORDOP : 
50 54 D0 OOOA1 6$: MOVL STATUS, RO : 0376 
04 000A4 RET : 0377 


; Routine Size: 165 bytes, Routine Base: SCODES + O10E 
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the NICE parameters. 


i ROUTINE VALUE: 
i COMPLETION CODES: 


NMA or RMS error status 


write_node_rec Write a Record to the No 14-Sep-19 NML .SRCINMLNODF IL .B832; 
ZSBTTL ‘nmi $write_node_rec Write . Record to the Node File’ 
GLOBAL ROUTINE nmU$wrife_node_rec (write_type, node_type, buffer_dsc) = 
'o¢ 
FUNCTIONAL DESCRIPTION: 
‘ This routine performs SPUTs to the node permanent database. The 
: database is organized with one record per node, four keys per 
' record. The four keys are: 
: node type (executor, remote node, loop node) 
: node address 
: node name 
. List node (node address concatenated with node type - 
used for LISTing nodes in order by address). 
' FORMAL PARAMETERS: 
; write_type nmn$c_put_rec - do a $PUT 
: nmn$c_update_rec - do a SUPDATE 
' node type Mode entity type - in case it's changed. 
; buffer_dsc Address of a descriptor of the buffer to write. 
This descriptor does not include the keys - only 
! 
! 
' 
! 
' 
' 
1 


BEGIN 
P 

buffer_dsc: REF VECTOR; ! Buffer to use for record 

LOCAL 
buf _ptr REF BBLOCK, 

: REF BBLOCK, 

rab: REF BBLOCK, 
local_dsc: VECTOR sh 
param_dsc: VECTOR 
or d_node_det er 
old_node_dsc:VE for (2), 


status; 


fab = nml$a netnode_ fab; 

If .fab Cfab$Sw_ifiJ-EQL 0 THEN ' If the node file isn't open 
RETURN .fab Cfab$l_sts); ! return open failure status. 

local_dsc £03 = .buffer_dsc FO} + nmn$k_node_keys_len; 

local dsc (iJ = .bu fer dsc [1] - nmn$k_node_keys_len; 

buf _ptr = .local_ase (17; 


! First, get the node address from the NICE parameters in the permanent database 
' record. The node address is the primary key into the node permanent 

! database. Therefore, if it has changed the old record must be deleted 

before the new one can be written (since primary keys cannot be modified). 
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Node File Routines for Network Management 18-sep-19 4 90:26:06 AX-11 Bliss-32 V4.0-74 
nmi $write_node_rec Write a Record to the No 14-Sep-1984 12:50: NML.SRCINMLNODF IL.832; 
435 ren dsc (1) = 0; 
4 $ F NOT nma$searchfld {butter dsc, nmaSc_pcno_add, param.dsc [0], param_dsc [1]) THEN 
4 aram a C ; = UPLIT (0); 
4 3 IF .buf ptr nmn$w_key_add] nEéQ -(.param_dsc (1])<0,16> THEN 
aie geet 
re} | If it's a brand new node, don't try to delete the old address's record. 
ness if -write_type NEQ nmn$c_put_rec THEN 
0445 i It isn't a brand new node. Delete the node using the address key if 
446 ' it's a remote node. Use the type key if it's the exec - in case it 
4/7 i has an address of 0 which could be confused with a loopnode. Loopnodes 
ret never change addresses, so yow never get here for loopnode operations. 
Beas ¢ GEGIN f_ptr Cnmn$w_key_typ) EQL $c_t THEN 
-bu r Cnmn$w_key_ nmn$c_typ_exec 
0452 5 BEGIN ~—e : 
0455 5 old_node_del_key = nmn$c_typ_key_ref; 
0454 5 old_node_dsc £9 = nmn$c_typ_key_Llen; 
0455 5 old_-node_dsc C1] = uplit™ (nm[$c_éxecutor); 
B628 5 
0457 4 
0458 5 BEGIN 
0459 5 old_node_del_key = nma$c_pcno_add; 
0460 5 old-node_dsc 0} = nmn$c_add_key_len; 
bees ? ore node_dac 1] = .buf_ptr; 
0463 4 nmi$delete_node_rec (.old_node_del_key, 
0464 4 d_node_dsc); 
Bees 4 write_type = nmn$c_put_rec; 
0467 ; buf_ptr Cnmn$w_key_add) = .(.param_dsc (1)); ! Put new address key 
0468 1 into record. 
0471 i In case the node name, address or type has changed as a result of the 
047 ! NICE command being processed, change the correspend ing key values as well. 
047 ! Now, get the node name from the NICE parameters. If there isn't one, 
beoe set up a null name. 
0476 2 param_dsc (1) = 0; 
0477 F nma$searchfld (.buffer_dsc, nma$c_pcno_nna, param_dsc [0], param_dsc (1]) THEN 
rt! CHSCOPY (perga_dsc (0), .param_dsc (TJ, 
480 nan$s_ke nam, 
2) a buf _ptr timn$t_key nam) 
j CHSFILL (2C° *, nmn$s_key_nam, buf_ptr Cnmn$t_key_nam]); 
5 i The third key is the node type. The three node types are executor, 
: remote, and loop node. 
buf_ptr Cnmn$w_key_typ) = 
3 ~RSELECTONED nbde type OF 
91 nml$c_nodebyname, nml$c_node]: nmn$c_typ_remote; 
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NMLNODF IL Node File Routines for Network Management 4 AX-11 Bliss-32 V4.0-74 P 17) NAL 
Vv04- nmi $write_node_rec urite a Record to the No : b-sep-1944 99: 6: % NML.SRCINMLNODF IL .B32; sant (6) v04 
: 497 49 nm\$c_executor]: nmn$c_typ_exec; ° 
; 498 298 praise. _loopnode): nmn$c mi Se Loopnode; ‘ 
; 499 494 3 
; 500 495 3 
; 501 4 ! 5 
: oe rh tf Set up the buffer size and address to include the keys. : 
: $04 499 rab = nml$a _netnode_rab 3 
; 505 500 rab Crab$w_fsz) = vocal dsc £93: : 
: 208 5 rab Crab$l“rbf = j local” _dsc : : 
: 508 ; IF . rite. type EQL nmn$c_put THEN : 
: 509 e Status + SPUT (RAB ="sraB) ; 
: 511 206 status = SUPDATE (RAB = .rab); : 
3 2i§ 050 ; 
s 31 0508 IF .status THEN 3 
; 516 0509 BEGIN 3 
; 212 Bei9 nm $logrecordop (dbg§c_ con node, : 
: 517 pai¢ $A SASCID a Fecord written’), , 
s; 318 051 local_dsc); 

; 519 0514 § END; 

; 520 0515 RETURN .status; 

3. Sev 0516 1 END; ! Of nm \$write_node_rec 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


00000000 00054 P.AAI: .LONG 0 F 
00000007 00058 P-AAJ: .LONG 7 : 
6E 65 74 74 69 72 77 20 64 72 6F 63 65 72 0005C P.AAL: “ASCII \record written\ : 
0006A "BLKB 2 
QO00000E 0006C P.AAK: <LONG 14 ; 
00000000" 00076 “ADDRESS P.AAL : 
-EXTRN SYSSPUT, SYSSUPDATE 
.PSECT $CODES,NOWRT,2 
01FC 00000 ENTRY NL SURITE NODE _REC, Save R2,R3,R4,R5,R6,R7,~; 0379 
9E 000 MOVAB NMASSEARCHFLD, R8 
A Aiitdditdd 09 z $805 mOVAR Opnaae RS 
BE § 9010 SUBL2 #24, §P 
50 00000000' 00 001 MOVAB NMLS$A_NETNODE_FAB, FAB : 0423 
02 AQ OO1A TSTw  2(FABY ; 0424 
0 001D BNEQ 1$ : 
50 08 Ad po 1F MOVL 8(FAB), RO ; 0425 
5 0c ac 00 ? 1$ MOVL BUFFER. SC, R2 0426 
10 AE é AC 8 ADDL 3 ary LOCAL_DSC F 
14 AE 06 =A A ¢ SUBL £8635 UECAC DSce 4 + 0427 
56 16 AE MOVL His Pst +4, > 04 : 
o¢ AE p4 CLRL DSC +4 > 04 
C AE 9F OO03A PUSHAB AMTDSCe4 : 04 


é 
NMLNODF IL Node File Routines for Network Management 1b-se -1984 00:22: AX-11 Bliss-32 V4.0-74 Page 18 
v04-000 nm $write_node_rec Write a Record to the No 1 30071 38s 99:85:98 ENAL SRC NMLNODF IL .B32; 7 (6) 
0¢ AE 9F 0003 PUSHAB PARAM_DSC : 
7E O1F F 3C 0004 MOVZWL #502, ~-(SP) : 
2 dD 0004 PUSHL : 
B 4 FB 4 CALLS #4, NMASSEARCHFLD : 
4 : § 4A BLBS : 
OC AE 4 4D MOVAB P.AAI, PARAM_DSC+4 t 0437 
OC BE $6 3 1 28: CHP (BUF PTR), @PARAM_DSC+4 + 0438 
01 06 AC D1 ; CMPL  WRITE_TYPE, #1 + 0443 
3A 1 0 8 BEQL : 
6E 2 D 5D MOVL #2, OLD_NODE_DSC + 0454 
02 A6 e 06 TSTW (BuF _PTR) > 0451 
on BNEQ $ : 
50 1 00 06 MOVL #1, OLD_NODE_DEL_KEY + 0453 
04 AE 04 A7 H 0068 MOVAB P.AAJ, OLD_NODE_BSC+4 + 0455 
9 1 9060 BRB 4$ > 0451 
50 O1F6 «BF «3C O6F 3$: MOV7WL #502, OLD_NODE_DEL_KEY + 0459 
06 A 6 DO 00074 MOVL  BUF_PTR, OLD_NODE_BSC+4 > 0461 
4001 8F 6B 00078 4$ PUSHR #*MZRO,SP> + 0463 
00000000v 00 02 FB 0076 CALLS #2, NMLSDELETE_NODE_REC : 
04 AC 01 pO 0008 MOVL 1, WRITE_TY + 0465 
66 0c BE BO 9087 S$: MOVW §§ @PARAM_DSC+4, (BUF_PTR) + 0467 
OC AE 04 00088 6$: CLRL ——- PARAM_BSC+4 + 0476 
OC AE OF 0008E PUSHAB PARAM DSC+4 + 0477 
OC AE OF 9009 PUSHAB PARAM~DSC : 
7E O1F4 BF 3C 00094 MOVZWL #500, ~=(SP) ; 
2 DD 0.199 PUSHL R ; 
68 04 FB 00U9B CALLS #4, NMASSEARCHFLD : 
08 50 E9 009E BLBC : 
06 20 OC BE 08 AE 2C 000A MOVCS PARAM_DSC, @PARAM_DSC+4, #32, #6, - > 0481 
04 Ab O0A8 4 (BUF ~PTRS : 
07 11 OOOAA BRB ; 
06 20 6E ~ 00 2c OOAC 7$: MOVCS #0, (SP), #32, #6, 4(BUF_PTR) > 0483 
50 08 ac v0 00085 8$: MOVL NODE_TYPE, RO + 0489 
03 50 D1 0008 CMPL RO, 3 + 0491 
OA 1F OOOBA BLSSU-9$ F 
04 50 01 000BC CMPL = RO, #4 : 
05 1A 000BF BGTRU 9 ; 
50 94 bO 90¢1 MOVL #1, RO ; 
6 11 00064 BRB 12$ F 
07 50 01 000C6 9$ CMPL RO, #7 : 0492 
4 12 000C9 BNEG =: 108 : 
0 p4 9 CB CLRL sR ; 
D 11 CD BRB 12$ ; 
05 9 D1 6 CF 10$: CMPL RO, #5 + 0493 
13 00002 Bear «sai ; 
50 1 CF D4 MNEGL #1, RO F 
07 BRB 12$ ; 
50 9 09 11$: MOVL #2, RO ; 
02 A 3 DC 12$:  MOVW RO. 2(BUF ) > 0489 
5 00000000" 0 E MOVAB NMLSA_NETRODE_RAB, RAB > 0499 
32 A 10 AE B E MOVW LOCAL“DSC, 34TRABS ; 0500 
A 14 AE OD eC MOVL LOCAL“DSC#4, 40(RAB) : 9901 
01 AC F CMPL WRITE-TYPE, r) : 3 
08 2 FS BNEQ 13 : 
DD O00F PUSHL RAB > 0504 


va 


3; Routine Size: 
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000000006 00 ; 4 
000000006 33 1 i 
Reece H 
rae 

000000006 6 o4 B 
a: 


293 bytes, Routine Base: $CODE$ + 0183 


te a Record to the N 


hat 


Sep- 
Sep- 


1980 92:86:78 


rh 
14§ 


RAB 
#1, SYSSUPDATE 


STATUS, 15$ 
LOCAL_DSC 


SYSS$PUT 


#i, -(SP) 
a4, Ne ek GRE CORDOP 
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ZSBITL ‘nml$delete_node_rec Delete a Record from the Node File’ 
GLOBAL ROUTINE nmlSdelefe_node_rec (key, key_value_dsc) = 


'o+ 


FUNCTIONAL DESCRIPTION: 


‘ This routine performs SDELETEs on the node permanent database. The 
; database is organized with one record per node, four keys per 

! record. The four keys are: 

! node type (executor, remote node, loop node) 

‘ node address 

‘ node name 

: List node = node tyee concatenated with node address - 
1 

i 

i 

i 

i 

i 


FUSVSVSUSISISISISISII 


used for LISTing nodes. 
FORMAL PARAMETERS: 


key Value mapped to the key of reference to use to 
identify the node's record. 

key_value_dsc Descriptor of key value to use to identify the 
node's record. 


ROUTINE VALUE: 
COMPLETION CODES: 


NMA or RMS error status 


BEGIN 


i 
l 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
LOCAL 
rab: REF BBLOCK, 


status; 


DONAUIES WN $$ O OODNAU EWN SO ODNAUES WN OVO NOULW 


Map the input ney parameter to the key of reference number for that 
parameter. If the key being used for this operation is different from the 
one the RAB is set up for, Switch keys. 


rab = nml$a_netnode_rab; 
status = rms$_suc; 
IF .key_value_dsc NEQ 0 THEN 
status = nAml_map_keys (nmn$c_delete_rec, .key, .key_value_dsc); 
IF .status THEN 
status = SDELETE (RAB = .rab); 


IF .status THEN 
BEGIN 
IF okey value_dsc NEQ 0 THEN 
Slogrecordop (dbg$c_fileio, 
nma$c_opn_node, 
SASCIB ("fecord deleted’), 
ELS ekey_value_dsc) 


E 
a nmi $debug_txt (dbg$c_fileio, SASCID (‘record deleted")); 
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yoo 000 nm\ $delete_node_rec Delete a Record from th 1 ~Sep-19 4 99:85:98 EwaL.SRe NAENOBF IL 83024 ay 3) 


38) $878 f ENDS spiacenca. nm $delete_node_rec 


-PSECT S$PLITS,NOWRT,NOEXE ,2 


64 65 74 65 6C 65 64 20 64 72 6F 63 65 72 0074 P.AAN: -ASCII \record deleted\ : 
900 00 00 P.AAM: .LONG 14 ; 
0000000" 00088 “ADDRESS P.AAN : 
64 65 74 65 6C 65 64 20 64 72 OF 63 6 00 c P. AAP: “ASCII \record deleted\ ; 
9000000 009C P.AAO: .LONG 14 ; 
00000000" 000A0 “ADDRESS P.AAP : 


~-EXTRN SYSSDELETE 
-PSECT S$CODES$,NOWRT,2 


003¢ 00000 .ENTRY NMLSDELETE_NODE_REC, Save R2,R3,R4,R5 : 0518 
55 00000000' 00 3 00002 MOVAB NL SA NETNODE_RAB, RAB + 0557 
4 00010001 8F »D 99009 MOVL #65537, STATUS : 0558 
52 08 AC D0 00010 MOVL KEY _VALUE_DSC, R2 : 0559 
53 D4 00014 CLRL sR : 
5 D3 00016 nn. : 
13 13 00018 BeQL «=s«s18 : 
53 D6 OOOIA INCL = R3 ; 
52 oD O001C PUSHL  R2 + 0560 
04 AC OD OO01E PUSHL KEY : 
03 DD 00021 PUSHL @# : 
00000000v 00 0 FB 900 3 CALLS #3, NML_MAP_KEYS : 
54 0 DO 0002A MOVL RO, STATUS : 
35 54 «£9 990 D 1$: BLBC STATUS, 3$ > 0561 
55 DD 00030 PUSHL R : 0562 
000000006 90 01 FB 0032 CALLS #1, SYSSDELETE : 
4 50 D0 00 MOVL : 
26 54 €9 0003C BLBC STATUS, $ > 0564 
14 53 E9 0003F BLBC ~=s_«aR3,,_ 28 : 0566 
38 DD 00042 PUSHL : 0570 
00000000' 3 0044 PUSHAB P. : 0569 
1 7D OO04A mova #i,:-=(SP) : 0567 
000000006 0 4 FB 04D CALLS a4, NML$SLOGRECORDOP : 
00000000' 00 9F 4 2$: PUSHAB P.AAO : 0572 
1 od 0005¢ PUSHL : 
000000006 00 2 FB O05E CALLS #2, NML$DEBUG_TXT : 
0 4 DO 00065 3s: MOVL STATUS, RO : 0574 
04 00068 RET : 0575 


; Routine Size: 105 bytes, Routine Base: SCODES + 02D8 
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v04-000 nml_map_keys Switch key used to octess node da 1 “$2071 984 99: $6; 8 NML. SREINMENOOF IL: B32;1 ’ BS 
s Sas 76 1 ZSBITL ‘nml_map_keys Switch key used to access node database’ 
3 Be i ! ROUTINE nml=map_ “keys (function, key param, key_value_dsc) = 

; 79 1 («'4 

3 a 2 01 FUNCTIONAL DESCRIPTION: 

; 588 Ge This routine is called whenever a record in the node permanent 
; 589 5 ¢ 13 database is accessed. It sets up the key reference, length, and 
; egy 2 ? : value so the next RMS operation is done on the correct record. 

: 236 585 1 ! FORMAL PARAMETERS: 

; 5 : 1! function nmn$c_put_rec = doing a put. 

> 594 28 1! nmn$c_ of rec = doing a read. 

; 595 8 1! nmn$c_deléte_rec = deleteing a record. 

> 596 589 1! nmn$c_update_rec = updet *ng a record. 

; 597 0590 1! key_param Value. mapped to the key of reference to use to 
; 235 323) 7% agent] ty the node's record. 

; ow 236 1! key._value_dsc Descriptor ai key value to use to identify the 
; 600 0595 1! node's record. 

; 601 0594 1! 

; ote 0595 1 ! ROUTINE VALUE: 

; 60 0596 1 ! COMPLETION CODES: 

3 ope 0597 1! 

3; 605 0598 1! Failure or RMS error 

: 606 0599 1! 

: 607 0600 1 !-- 

; 608 0601 1 

; 609 060 BEGIN 

; 610 060 

3: 611 04 MAP 

3 $i¢ 0605 key_value_dsc: REF VECTOR; ! Descriptor for key value 

; 61 0606 

3 614 0607 LOCAL 

3; 615 0608 rab: REF BBLOCK, 

; 616 0609 fab: REF BBLOCK, 

3; 617 0610 key_ref, 

; 618 0611 key_ addr, 

: 619 b6t¢ key_l 

; 620 061 name « BBLOCK Cnmn$c_nam_key_len], 

3 eh 0614 do_find, 

: 622 0615 status; 

3; 623 0616 

: 624 0617 rab = nal$a =netnode. rep: 

3: 625 0618 fab = nml$a_netn 

: 626 061? IF .fab CfabSw 95- a THEN ' If the node file isn't open 

3 ° i ‘ status = .fab fob l_sts i return open Mitues status. 
3 6 ; 6 § BEGIN 

: 631 624 i Fill in key value. This identifies the specific node record to get, put, 
: 635 ° 5 or delete. Also, set up the buffer size and address. 

: © 5 en = ke value_dsc (0); 

; 655 6 8 key. rab$l_k = nm[USt_key_ value; 

a | rab Crab$v_k bge = 0; 

; 6 650 SEL ECTONEU™ ey _param OF 

: 638 1 SET 

; 639 632 ! 


roa 
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nml_map_keys Switch key used to oceess node da 1 =$007 138% 99:86:98 NML .SRCINMLNODF IL .632; B 
633 ! If the key is List node or node type, map it to the key veluge used 
634 ' in the node database file. The va ug is passed to this routine as 
635 : NMLSC_* node ply 4 type. The List key overlaps with the node 
6 $ ! address key to allow the LIST command to get nodes by type and, 
! within type, sequentially by address. The list key value contains 
638 ' a zero for the node edgrese: are? when you do a S$GET of (type OR 0) 
0639 ! with a match type of GTR, it wil get the first node of that type 
0640 ! in the file. usscquent sequential reads will return the nodes of 
bees that type in ascending order by address. 
oec8 Cnmn$c typ_key_ret nan$c_lis_key ref): 
Bete 4 BEG! 
Ree? ney.eddr = (SELECTONEU .(.key_value_dsc (1J) OF 
bec? pat Se pedepynene, 
0648 5 nm $c_nodeJ: UPLIT WORD (0, nmn$c_typ_remote); 
0649 é nml$c_executor]: UPLIT WORD (0, nmn$c_typ_exec); 
Be30 ? $22) 56. noepnetes UPLIT WORD (0, nmn$c_typ_loopnode:; 
0652 4 IF .ke _param EQL nmn$c_typ_key_ref THEN 
bee 4 key -eddr = .key_addr He os 
0654 4 
0655 4 rab Crab$v_kgel] = 1; 
0656 4 key_ref = .key_param; 
0657 ; 3 
0658 Cnma$c_pcno_add): 
0659 4 B 
0660 4 key_ref = nmn$c_add_key_ref; 
0661 4 key_addr = .key-value_dsc Ci); 
066 ; Crma$c pcne_nnad: 
0664 4 BEGIN 
0665 4 key_ref = nmn$c_nam_key_ref; 
0666 4 key_addr = name_buf; 
0667 4 ney Len = nmn$c_nam_key_len; 
0668 4 CHSTOPY (.key_value_dsc CO], .key_value_dsc C1], %C° ', 
0669 4 nmn$c_nam_key_len, name_buf); 
0670 3 
938 TES; 
067 ! If doing an upeere or delete operation, check to see if the 
0674 ! key from the last operation is different (DEF EXEC NAME requires 
0675 ' that the name be checked, so an intermediate read is done between 
67 ' the $6cT of the executor node entry and the SUPDATE). If the key 
67 ! is different, do a SFIND so that R § has the correct current record 
pore for the update or delete. 
0380 IF .function EQL nmn$c_update_rec OR 
681 -function EQL nmn$c_delete_rec THEN 
6 § 4 BEGIN 
6 4 IF pkey ref NEQ .rab Crab$b_krf] OR 
684 4 CHSNEQ (.key_len, .key_addr, 
685 4 ra rab$b_ksz , -fab Crab$l_kbf], %C° °) THEN 
6 & do_find = true 
6 4 ELSE 
688 4 do_find = false; 
0689 3 END; 
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v04-000 nml_map_keys Switch key used to access node da 14-S NML .SRCINMLNODF IL.832; 
; 697 0690 ! 
; 698 691 ' Put the new key reference ney size, and key value into the RAB. These 
; $99 69¢ i are the fields that identify the node record to RMS. 
; 701 0694 rab Crab$b_krf] = .key_ref; 
; 7 0695 rab Lrab$b_ksz] = okey len; 
; 70 0636 rab Crab$l-kbf] = nmlS$ft_key_value; 
: 704 069 CHSMOVE (Rey. ten, -key_addr, nmi $t_key_value); 
; 705 0698 status = rms$ suc; 
; 706 0699 IF .do_find TREN 
s for 0700 status = SFIND (RAB = .rab); , 
: 708 878) § END; ‘ 
; 709 a RETURN .status; ‘ 
; 710 0705 1 END; ! of  nml_map_keys ‘ 
-PSECT $PLITS,NOWRT,NOEXE,2 ‘ 
0001 0000 OO0A4 P.AAQ: .WORD 0, 1 : 
0000 0000 OOOA8 P.AAR: .WORD 0, 0 : 
0002 0000 OO00AC WORD 0, 2 3 
-EXTRN SYSS$F IND : 
-PSECT SCODES,NOWRT,2 : 
OFFC 00000 NML_MAP_KEYS: : 
-WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 0577 : 
5€ 08 C2 0000 SUBL2 ° F ‘ 
56 00000000" 00 9€ 0000 MOVAB NMLSA_NETNODE_RAB, RAB 3; 0617 : 
50 00000000" 00 9€ Bones MOVAB NMLSA_NETNODE_FAB, FAB : 0618 
02 Ad B5 0001 TSTW 2(FABY ; 0619 
07 12 00016 BNEQ 1$ 3 
58 08 a0 BY 00018 MOVL 8<(FAB), STATUS : 0620 
OOEA 31 O001C BRW 16$ 3 
50 Oc AC DO OOOIF 1$ MOVL KEY _VALUE_DSC, RO ; 0627 
SA 60 D0 00023 MOVL (ROY, KEY-LEN ; 
30 A6 00000000" 00 9€E 00026 MOVAB NM $f KEY VALUE, 48(RAB) ; 0628 : 
06 A6 20 8A 000 5 BICB2 #32, 8(RAB) : 0629 
52 08 AC 00 000 MOVL eal R2 : 06350 3 
01 52 D1 000 CMPL Re, #1 3: 0643 
93 13 00039 BEQL © 2 : : 
03 § D1 88 B CMPL Ree Be) ; : A 
4 is f BNEQ 9 3 3 @ 
51 04 Bo DO 00040 2$ MOVL a4(RO), R1 : 0645 7 L 
03 1 D1 00044 CMPL R1, #3 : 0647 4 
OF 1F O06? BLSSU 3$ : : # 
04 1 01 49 CMPL R1, #4 3 3 ¢ 
83 1A 0004C BGTRU 3$ 3 
57 00000000° 00 3 Be MOVAB P.AAQ, KEY_ADDR ; 0648 
FO BRB 4$ ; 
07 51 D1 3$ CMPL R1, #7 : 0649 
8 12 A BNEQ 4$ ; 
57 00000000' 0 7 MOVAB P.AAR, KEY_ADDR : 
"m4 6 BRB 6$ 3 
05 51 D1 00065 4$ CMPL R1, #5 : 0650 
| 


sg — ' = 
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v04-000 nml_map_keys Switch key used to access node da 14-Sep-19 4 99:85:98 NML.SRCINMLNODF IL.B32;1 ” B 
5 13 00068 BEQL = S$ : 
57 1 CF 6A MNEGL #1, KEY_ADDR : 
7 1 6D BRB 6$ ; 
57 00000000 H O6F 58: NOVAB P AAS. KEY_ADDR Poste 
if $98 : BNE Re. : 
57 é cc on ADDL? 2, KEY_ADDR > 0653 
06 A 0 88 a5 7$: B1SB2 oS, 6(RAB) : 0655 
5 2 00 0084 8$: MOVL R2, KEY_REF + 0656 
eA 11 00087 BRB 11$ + 0630 
000001F6 8F é D1 0089 9$: CMPL Re #502 + 0658 
BF he 60095 rant 108 REF : 0660 
57 04 AO DO 00094 MOVL  4(RD), KEY_ADDR + 0661 
19 11 00098 BRB 11$ + 0630 
000001F4  8F 52 D1 0009A 10$:  CMPL 2, #500 + 0663 
58 O° BO BOOAS SOL us KEY_REF + 0665 
a 66 8B O00K9 ROVAB — NAAE BUF) KEY_ADDR : 9666 
06 20 04 80 60 2¢ O90aC movcS (RO), a%(RO), #32, #6, NAME_BUF + 0668 
02 04 AC 01 00088 11$:  CMPL —s FUNCTION, #2 + 0680 
06 13 00087 BEQL 12$ : 
03 04 AC Di 00089 CPL FUNCTION, #3 ; 0681 
58 35 Ab 08 00 ED OOOBF 12$ CMPZ7V #0, #8, 53(RAB), KEY_REF + 0683 
50 34 Re 9A ope? BOY ZBL ‘ee RO : 0685 
50 20 67 = >A 2D 900¢8 CMPC5  KEY_LEN. (KEY_ADDR), #32, RO, @48(RAB) ; 0684 
05 13 000D2 BEQL 14$ : 
59 01 D0 000D4 138:  MOVL #1, DO_FIND > 0686 
02 11 00007 BRB 15$ : 
59 D4 00009 14$:  CLRL  DO-FIND + 0688 
35 Ab 58 90 000DB 15$: MOVB  KEV_REF, 53(RAB) > 0694 
33 § oooooooo: Gb $2 $9825 Rall Aavet Rev gate ae 
00000000' 00 67 5A 5 OOEB MOVC3 kK LEN. TKEY_ADDR), NMLS$T_KEY_VALUE : 0697 
5B 90010001 B&F DO OOOF MOVL #65537, ST + 0698 
0c 59 £9 OOOFA BLBC DO_FIND, 16$ + 0699 
56 DD O00FD PUSHL R : 0700 
000000006 90 gi FB OOF F CALLS #1, SYSSFIND : 
B 0 DO 00106 MOVL RO. STATUS : 
50 5B DO 00109 16%: | MOVL STATUS, RO ; 9702 
04 0010C¢ RET : 070 


; Routine Size: 269 bytes, Routine Base: $CODE$ + 0341 
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\$read_loopnode Get a loopnode invthe Node Fi 1278601382 99:85:98 NAL -SREINMLNODE IU B30. . (35 
04 ZSBTTL ‘nml$read_loopnode Get a loopnode in the Node File’ 
5 GLOBAL ROUTINE nml$read_loopnode (the _circuit_dsc, 
$ buffer_dsc, data_dsc) = 


'4¢ 


| FUNCTIONAL DESCRIPTION: 


non Mees OO 
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This routine searches through the node permanent database for 
a loopnode on the specified circuit. Loopnodes must be set up 
with unique circuit ids. 
This routine is called for such functions as: 
LIST CIRCUIT - in case the circuit is set up as a loopnode, 
to yet the Loopnode name. 
DEFINE NODE node-id CIRCUIT circuit-id = to make sure there 
isn't already a loopnode on that circuit. 


! FORMAL PARAMETERS: 


i 

' 

i 

i 

i 

i 

i 

i 

i 

i 

' 

: the circuit_dsc Address of descriptor of circuit ID to look for. 
buffer_dsc Address of a descriptor of a buffer to use for 
' 

i 
i 
i 
i 
i 
' 

i 
ie 


i Read through the known loopnodes in the node permanent database, looking 
for a loopnode on the circuit specified by the input parameter. 


returning the loopnode data. 
data_dsc Address of ° descriptor to return descriptor of data 
read. 
7 ROUTINE VALUE: 
i COMPLETION CODES: 
4 NMA or RMS error status 
7 -= 
7 
z BEGIN 
7 MAP 
f the_circuit_dsc: REF VECTOR; 
7 LOCAL 
7 a_circuit_dsc: VECTOR (2), 
7 rewind_flag, 
7 status; 
7 
7 
7 


rewind_flag = true; 

WHILE status = nmi $read_known_node_rec (nml$c_loopnode, 
-buffer_dsc, 
-data_dsc 
rewind flag) DO 


BEGIN 

rewind. {leg = false; 
a_circuit_dsc fo} = 0: 
a.circuit dsc 1] = 0; 


i Find the circuit ID for this loopnode, and, if it matches the 
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read_loopnode Get a loopnode inthe Node Fi 12: ety 7 99: $6: 8 NML.SRC NRCNODF IL -B32; — (8; 


circuit I'm looking for, return the lcopnode data to the caller. 


ode 

ml$ 

61 

84 

6 ir nma$searchfld (.data_dsc, 

64 nma$c_pcno_nli 

65 2. cirtuit_dsc fo 15 4 
28 eect gs° dsc 

6 CHSEQL (.the acing uit 3o%f fo3 
68 -alcT rcul t.dsc [0 
69 

70 

71 

72 


C1) 


-the_ Pian 
THEN 


° oe circuit_dsc -F9§) 
_EXITLOOP; 


RETURN * status; 
1 END; ! of nml$read_loopnode 


003c¢ 00000 .FNTRY NiML SREAD_LOOPNODE , Save R2,R3,R4,R5 : 0705 
SE 08 C2 00002 § 8L2 ; 
54 01 DO 00005 MOVL #1, REWIND FLAG + 0749 
54 DD 00008 1$: PUSHL REWIND + 0753 
7E 08 AC 7D OCOOA MOVa auF FER Se, -(SP) : 0751 
05 DD 00008 PUSHL # : 0750 
00000000v 00 04 FB 0001 CALLS #4, NML SREAD_KNOWN_NODE_REC ; 
55 50 00 00017 MOVL * STATUS ; 
2A 55 £9 OOOIA BLBC STATUS, 2$ F 
54 04 00010 CLRL REWIND FLAG : 0756 
6€ 7C O001F CLRO IRCOIT_DSC : 0757 
04 AE OF 90021 PUSHAB ACE IRCULT“DSe +6 + 0766 
04 AE 9F 00024 PUSHAB A-CIRCUIT~DSC : 0765 
7E O1F5 8F 3C 00027 MOVZWL #501, ~(SP) 3 0763 
0C AC DD 0002C L  DATADSC ; 
000000006 00 4 FB 0002F CALLS #4, RMASSEARCHFLD : 
CF 0 £9 00036 BLBC ~=—._«aRO,._*18 : 
50 04 AC DO 00039 MOYL _—* THE CIRCUIT DSC : 0767 
6E 00 04 B60 60 20 9005p CMPCS (ROY (ROY, 0, ef CIRCUIT_DSC, ; 
04 BE 0004 aA OCiReUIT _psc+ : 
C1 12 00045 BNEQ ; 
50 55 DO 00047 2$: MOVL STATUS, RO : 0771 
04 0004A RET : 0772 


; Routine Size: 75 bytes, Routine Base: S$CODE$S + 044E 
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v04- nml$read_known_node_rec Get a known Record in 1 350-1382 99:85:98 ENML SRE NMLNODF IL .B832; 185 
7 ¢ 0773 1 ZSBTTL ‘nml$read_known_node_rec Get a known Record in the Node File’ ; 
7 774 1 GLOBAL ROUTINE nml$read_known_node_rec (node_type, : 
7 775=«1 buffer_dsc, ° 
785 wre 1 data_dsc ‘ 
78 777 1 rewind_flag) = : 
78 778 #1 ; 
788 779 1 S44 ; 
re ree ' ; FUNCTIONAL DESCRIPTION: ; 
791 07 ¢ 1} This routine performs sequential $GETs to the node permanent ; 
79 07 1! database. The database is organized with one record per node, ° 
79 45 » 73 The four keys are: : 
794 785 1! node type (executor, remote node, loop node) ; 
795 oree 1! node address ‘ 
796 0787 1! node name ‘ 
797 0788 1! List node = node tyes concatenated with node address - ‘ 
798 0789 1! used for LISTing nodes. ‘ 
799 0790 1! If the node key and value are different from the Last time ; 
800 ore) 3 3 this routine was called, do the $GET with a record access mode ‘ 
801 0792 1! of keyed. If ed | are the same, do the $GET with a record access ‘ 
80 0795 1! mode of sequential. The latter will cause RMS to return the ; 
80 0794 1! next record in the file greater which matches the ney and is ; 
0795 1! eronter than the key value. This is useful for KNOWN NODES and ‘ 
ets Bre : NOWN LOOPNODES operations. : 
807 0798 1 ! FORMAL PARAMETERS: : 
808 0799 1! ; 
809 08 1! node_type Node entity type ; 
810 0801 1! buf fer_dsc Address of a descriptor of a buffer to use ; 
ai tt : data_dsc Address of a descriptor to return descriptor of data ‘ 
: read. ‘ 
B13 0804 1! rewind_flag Set if the caller wants to begin reading at the ’ 
814 0805 1! beginning of the node file. : 
815 0806 1! ; 
816 0807 1 ! ROUTINE VALUE: ‘ 
$17 0808 1 ! COMPLETION CODES: ‘ 
818 0809 1! : 
819 0810 1! NMA or RMS error status ; 
820 0811 1! ; 
821 Bal¢ 1 !e- : 
ase 08135 1 ° 
82 0814 BEGIN : 
824 0815 : 
836 bay 5 ; 
6 1 buffer_dsc: REF VECTOR, ! Buffer to use for record : 
iH tts data_dsc: REF VECTOR; : Return data descriptor : 
o¢? 0820 LOCAL : 
8 0821 rab: REF BBLOCK, ° 
33) 3 § key_value_dsc: VECTOR (2), ! Descriptor for key value : 
; rec_node_fype, : 
83 824 status; ‘ 
34 ; 5 ‘ 
35 $ : 
36 ; Last_RFAO, ' Record file address of last record : 
335 oB5e Last_RFA4 : WORD; : read by this routine. : 
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b 
key_value_dsc ="nmn$c_lis_key_len; 
key_value_ds = node_fype; 


rab = Uhesdse [0] sm : 
status = AmL$_sts_suc; 


Known nodes are found using the Type and Address keys with a search type 

of prenser than or equal to’. If the Last operation was to a node in the 
middle of the type being LISTed, RMS's ‘next record’’ will cause it to start 
pearing node records from there. So, do a SREWIND so RMS starts at the 
beginning of the file. 


rewind flag THEN 
GIN 


Last_RFAO = 0; 
Last_RFA4 


= 0: 
status = SREWIND (RAB = .rab); 
IF .status THEN 
BEGIN 


i 
iF 


f this is the second (or later) time this routine is being called to 
ind a node record, set up the RAB to do the next read sequentially. 


F NOT .rewind_flag THEN 
EGIN 


! | 
f 


! Some operations, such as LIST KNOWN NODES CHARACTERISTICS, must 

! read random node records between the sequential operations done 

' by this routine. For example, when Listing a node which has the HOST 
' parameter set, the HOST node's record must be read in to determine 

' the host node's name to include in the LIST response. If the Record 
! File Address in the RAB has moved, do a $GET to get back to where 

we were. 

!' PURGE KNOWN NODES ALL deletes a record between each call to this 

' routine. In this case the RFA is zeroed, so check for that too 
before doing the $GET. 

I 


IF (.last_RFAO NEQ .rab Crab$l_r fad) OR 
-last_RFA4 NEQ .rab Crab$w_ffa4)) 


(.rab Crab$l_rfa0] NEQ 8 OR 
un’ rab$w_rfa4j NEQ 0) 


BEGIN 

rab Crab$b_rac) = rab$c_rfa; 

rab Crab$l-rfa0) = .last_RFAO; 

rab Crab$w_rfa4] = .last_RFA4; 

rab Crab$w_usz) = .buffer_dsc 9}: 
rab Crab$l_ubf] = .buffer_dsc (1); 
status = $GET (RAB = .rabJ; 


rab Crab$b_rac) = rab$c_seq; 
END; 


Get the record from the node file. 
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IF .status THEN 
status = nml$read_node_rec (nmn$c_lis_key_ref, 
poy value dsc, 
rec_node e, 
butfer Ose -data_dsc); 


| 
} Restore record access mode to keyed in case this is the last time this 
1 


$3 


S23 8 

2 
coce9co — 
Co we 


3 


' routine is called for a known record. 


(G0.09 Cd G9 Co C9. C9. G9 OD OD C9 CD CD 


SESSSESSSE 


ST 
er 


SOQOCOOCOOCOOCOCOCOOOOOOOoOO 


| 
900 «Status EQL rms$_eo 
910 901 -Status EQL_ rms$_rnf THEN 
911 4's RETURN rms$_eof; 
ge 90 END; 
91 904 RETURN nml$chkfileio (nma$c_sts_fio, 
914 905 Status); 
915 906 1 END; ! Of nm $read_known_node_rec 
.PSECT SOWNS,NOEXE,2 
0022¢ .BLKB 2 
00230 LAST_RFAQ: : 
00234 LAST_RFAG: 
.BLKB 2 
.EXTRN SYSSREWIND 
.PSECT $CODE$,NOWRT,2 
000cC 00000 .ENTRY NMLSREAD_KNOWN_NODE_REC, Save R2,R3 : 0774 
53 00000000' 00 i 0000 HOVAB LAST_RFAS, R3 ; 
26 o¢ 3 900 SUBL2  # : 
5 FEIC «6C : 000¢ MOVAB NMLSA_NETNODE_RAB, RAB : 0830 
04 AE 04 poet MOVL #4, KEY_VALUE-DSC ; 0831 
08 AE 04 AC 0015 MOVAB NODE TYPE, KEY_VALUE_DSC+4 : 08 é 
50 01 »D O001A MOVL #1, STATUS ; 08 
OE 10 AC €9 00010 BLBC REWIND FLAG. 1$ 3 0841 
FC OAS OG 6 1 CLRL —LAST_RFA ; 0843 
B4 4 CLRW = LASTRFA4 : 4 
000000006 ¢ OO 8858 CALS Bln SYSSREWIND eee 
8 0 80 F 1$: BLBS TATUS, a > 0847 
0084 BRW ; 
F 10 AC E 28: BLBS § REWIND FLAG 6$ F 855 
1 .. 2 9 MOVL LAST_RFAO, R11 ; 086 
10 A2 51 0 CMPL = -R1, _T6(RAB) ; 
06 iF 4 BNEQ ; 
146 A2 $ 8 4 CMP AST_RFAG, 20(RAB) : 0869 
4 BECL ; 
10 A2 D 49 3$: TSTL  16(RAB) > 0871 
05 12 0004¢ BNEQ 4$ ; 
| 


way NOR TL Node File Routines for Network Management 
v04- nml$read_known_node_rec Get a known Record in 


= 


3 
EcSepctQGe 90:85:08 WCE Bharat 852! Pee 45) 


“Oa é 4 TSTW 2 (RAB) : 0872 
BEQL ; 
If A 9 4$ MOVE #2, 30(RAB) + 0875 
10 A D MOVL 1. 16(RAB) ; 087 
“ 4 63 B B MOVW  LAST_RFA4, 20(RAB) + 087 
51 08 ac D 5 MOVL § BUFFER_DSC, R1 : 0878 
30 Ag 61 8B 63 MOVW (R11), 32(RAB) : 
> a 04 Al D 06 MOVL  4(R15, 36(RAB) + 0879 
3 DD C PUSHL RAB + 0880 
000000006 00 01 FB DOG CALLS #1, SYSSGET ; 
1E a2 94 5$ CLRB 30(RAB) : 088 
11 5 59 0 78 6$ BLBC ‘STATUS, : 088 
7E 08 AC ?0 00078 MOVO BUFFER DSC, =(SP) > 0891 
08 AE 9F OOO07F PUSHAB REC_NODE TYPE : 0888 
0 At 9F 0008 PUSHAB KEY_VALUE_DSC 3 
DD 000 PUSHL # ; 
FBE9 = CF 5 FB 900 CALLS #5, NMLSREAD_NODE_REC ; 
iE A 1 90 00 7$: MOVE #1. 30(RAB) + 0896 
ca 10 Ag D0 0 0 MOVL § 16(RAB), LAST_RFAO ; 0897 
6 14 A2 BO 0009 MOVW  20(RAB). LAST-RFAG : 0898 
6E 04 AC D1 00099 CMPL § NODE_TYPE, RET_NODE_TYPE : 0899 
18 12 0009D BNEQ ; 
0001827A BF 30 p| 0009F CAPL STATUS, #98938 + 0900 
00018282 =F 50 pi a00Ar cmPL STATUS, #98994 : 0901 
50 0001827A_ = BF pO 90081 8$ MOVL #98938, RO + 0902 
50 DD 00089 9$ PUSHL STATUS + 0905 
7E if CE 000BB MNEGL #18, -(SP) + 0904 
000000006 00 0 FB OOBE CALLS #2, NMLSCHKFILEIO pe 


; Routine Size: 198 bytes, Routine Base: $CODE$S + 0499 
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create_node_db Create node perkonent datab 1 300-1382 99:85:98 NML.SRCIJNMLNODF IL.632;1 
ZSBTTL ‘nml$create_node_db 
GLOBAL ROUTINE nm\Screafe_node_db (file_name_dsc, fa 


Create node pyrnenent database file’ 
= 


oe 

' FUNCTIONAL DESCRIPTION: 

! This routine is called to create a new node database file under two 
conditions: 

- None already exists. 

- If the node permanent database has only 1 key - it's the 
old node database format, and must be converted to four 
keys (this conversion is for performance reasons). Create 
the file here, convert it Later. 


1 
i 
i 
i 
i 
i 
1 
' FORMAL PARAMETERS: 

: FILE_NAME_DSC Descriptor of name of file. Used because, when 

: convert tne from the old database format to the new, 
the oe file is given a temporary file name until 

‘ complete. 

: FAB Address at which to return address of FAB. 

1 

i 

i 

i 

i 

le 


ROUTINE VALUE: 
COMPLETION CODES: 


Failure or RMS error 


BEGIN 


file_name_dsc: REF VECTOR; 


LOCAL 
status; 

-fab = nml$a_netnode_fab; 

SFAB_INIT ( FAB = nil $a_netnode_fab, 
ALQ = 60, Initial file block size. 
BKS = 35, Bucket size 
FAC = (UPD, PUT, GET, DEL), File access options | 
DNM = 'SYSS$SYSTEM:.DAT' Default filename string 
FNA = .file_name_dsc 11, File name 
FNS = .file_nmame_dsc ° File name size 
FOP = (CBT,AXV), F 


i 

i 

ile Options (contiguous best 
max versions) 

r 


tr 
0 genizetion = indexed 


ORG = IDX, 

RFM = VAR Record format = variable 
SHR = (UPD, PUT, GET, DEL), File sharing options 

XAB = nml$a_node_address_xab); XAB Chain 


Set up the XABs to describe the four keys which will be used 
to get information from the file. 


First, initialize primary key XAB with key = node address. Allow duplicates 
for this key because any loopnode can have an address of zero. 


a -32 V4.0-74 Page 33 
Management 16-Sep-1984 00:22: AX-11 Bliss ° as 
vou~000 nat create,node, ab ‘Create node permanent datab 12-868 =1 $84 99:86:98 NML.SRC NALNODFIL-B3es1 
' 
; 974 P He) SXABKEY_INIT us . fal Se_node_edéress_nab, Key = hy i +B bete Binoy 
; tf p 966 FLG = (DUP, DAT NCHPR, IDX.NCHPR, a hina 
bee 3 : i e number 
; 3 p 369 POS = Vlei nstatancie, al. i Key position in record 
; x 4 388 SIZ = nmn$c_add_key_Len, i Key size in record 
; oat . He NXT = nml$a_nodeé_type_xab); ! XAB chain pointer 
; ! 
; 38 38 ; Next, initialize key XAB with key = node type (executor, remote, loop). 
. 4 , 
: 385 . 8 SXABKEY_INIT is “ ipa ete | i data, type a beve Ofaur 
; ! Key flags 
: P 097 FLG = (CHG, DUP, IDX_NCMPR), BE aioe 
; 388 p a378 aces nanSc_typ_key-ret, i Key pentoten in record 
: 386 F b8K0 SIZ = nmn$c_typ_key_Len, i Key size in record 
; 391 d $98) NXT = nml$a_nodé_name_xab); ! XAB chain 
: 99 098 
: 338 $982 Initialize key XAB with key = node name 
; 0985 2 i 
; 398 P 0986 SXABKEY_INIT 7“ ~ na Sa_node_nene_n0d, ken re eee + arin 
; 395 p $988 FLG = (CHG, NUL, IDX_NCMPR), Key flags bt 
; 800 p 9990 KREF = nanSc_nan_key_ref, i Key position in record 
; , ! e in recor 
: 1904 P 0991 ay . pans; _nan_key_len, Nal key ag pe 
; 1908 . 099 NXT = nml$a_node_List_xab); i XAB chain 
> 1004 0994 
: 1005 0995 ' aay 
: 1909 b99¢ This key congatenates the the pier ee ae = y rode Be 
+ 1008 0998 i allow the LIST command to get no es by type and. within type, sequentis 
AR HBP | sletane ener Sone ou be syPetand ames eRe tte dusstasereycetz% 
; 1912 1902 i Kg ® pegs. nodes of that type in ascending order by address. 
: 1 i 
; 1914 4 1904 SXABKEY_INIT — . nml$a_node_List_xab, oon data. type ih bone bene 
: ' Key flags 
: P 1006 FLG = (CHG, DUP, IDX_NCMPR), eae 
ii B 100e Kier spnmnbe Uisteycret. | Key reterence number 
: 1019 B 1009 SIZ = nmn$c_lis_ke len, ' Key size in record 
: 1990 J 190 NXT = nalSa-protect ton. xab); ! XAB chain 
: 1011 
; 19 ; . 1g $XABPRO_INIT - . nml$a_protection_xab, Tt of ener Pompesiyen 
> e e S n 
: 19 4 1014 PRO = (RWED, RWED, , )); vraRnes ten Se 
Z + 5 ! te 
: 19 ; } 18 status = SCREATE (FAB = nml$a_netnode_ fab); 
: 18 ys 193 THEN 
3; 1030 1020 IF .status 


3 
NM FIL Node File Routines for Network Management 1$- Se 4 AX-11 Bliss-32 v4.0-74 P 4 NMI 
vOLe nml$create_node_db Create node perzenent datab 1279 08- 1 3be 99: 6: % NML.SRCIJNMLNODF IL.B32; age 475 vos 
: 1031 1021 nmlS$logfileop (dbg$c_fileio, 
; 10 ¢ 1 § 9 . nase” opn node, 
; 10 1 SASCIB ( Fite Created')); 
: + 4 : ¢ RETURN .status; 
: 10 1026 1 END; ! of nml$create_node_db 


«PSECT S$PLITS,NOWRT,NOEXE ,2 


54 41 44 2 3A 4D 45 54 59 53 24 53 59 53 0Q00BO P.AAT: .ASCII \SYSSSYSTEM:.DAT\ ; : 
64 65 74 61 65 33 63 35 65 6C 69 66 d0oer P- AAV: ASCII * created\ ; : 
0000000¢ Roce P.AAU: .LONG 12 ; : 
00000000" 00000 “ADDRESS P.A : : 
SRMS_PTR= NMLSA_NETNODE_FAB ‘ 
$RMS_PTR= NML$A-NODE_ADBRESS_XAB : 
$RMS-PTR= NML$A-NODE~TYPE_XAB : 
SRMS~PTR= NML$A~NODE~NAME ~XAB : 
SRMS_PTR= NMLSA-NODE”LIST~XAB ; 
SRMS~PTR= NMLS$A~PROTECTION. XAB : 
-EXTRN SYSSCREATE : 
.PSECT $CODE$,NOWRT,2 : 
007c¢ 00000 .ENTRY NMLSCREATE_NODE_DB, Save R2,R3,R4,R5,R6 : 0908 ; 
56 00000000' 00 9€E 00002 MOVAB NMLSA_NETNODE_FAB, R6 : : 
08 ac 66 9E 00009 MOV NMLSA~ NETNODE™ “FAB, aF AB > 094 ; 
0050 8F 00 6E 00 2¢ 99000 MOVC #0. (SP), #0, #80, SRMS_PTR : 095 : 
66 5003 8F B0 00015 MOVW 1205 SRMS_PTR : : 
04  A6 00200002 ar DO O001A MOVL #2097154, $RAS_PTR+4 F F 
10 A6 C 00 9032 MOVL #60, $ RMS_PTR+T6 : F 
16 Ab OFOF BF BO 00026 MOVW $5 “BARS PTR+22 ; : 
1D Ab HY 90 0002C MOVB 3s #32, $num pTRs +29 ; : 
1F A6 96 00030 MOVB #2, S$RMS_PTR+31 : : 
24 «Ab OOF8 C6 9 00 MOVAB NMLSA nee NDDRESS _XAB, SRMS_PTR+36 : ; 
50 04 AC DO OO08A MOVL FILE NAME BSC, RO ~ : 
C Ab 046 Aad 00 O55 MOVL  4(ROT, SRAS_PTR+44 ; 
6 a6 00000000' 0 3 04 MOVAB P.AAT, $RMS~PTR+48 : 
4 Ab 60 9 4B MOVB (RO), SRMS PIRS52 : 
5 Ab F 90 OO4F MOVB = #15, SRMS PIReS : 
—E A6 3 9 5 MOVB #3, SRMS_PTR+6 : 
004c «BF 00 6E a 00 2c 0097 MOVCS #0. (SP)> #0, #76, SRMS_PTR : 0971 
OOF8 C6 gore 8F ao 006] MOVW #19477, S$RMS_PTR : 
OOFC 6 190 (6 ; 0068 MOVAB miss _NODE -1YPE 18 SRMS_PTR+4 : 
010A «C6 209s BF ; O6F MOV a7 paRnssPr : 
10F 4 & CLRB 3 : 
0126 6 90 0007A MOVB a MS SRS _PTR+46 ; 
004C BF 00 6E a 0 2 0007F MOVCS #0, (SP)> #0, #76, S$RMS_PTR : 0981 
190 C6 9199 SF 80 58 MOVW #19477, $RMS_PTR F 
194 (C6 0144 ¢6 F 30 MOVAB NAL SA _NODE_NAME_XAB, SRMS_PTR+4 : 
1A2 C6 208 «=8F B 9 MOVW #523, ~SRMS"PTR+T8 : 


M 5 
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VOx~ 800 nmiscreate -node_db Create node perkenent datab 1 12: $e: 1382 99: 6: " NML.SRCINMLNODF IL.832; Page 433 


1A? C6 19 9 MOVB + $RMS PIAS ; 
1AE C6 A MOVW 0 : 
1BE (6 A MOVB Rs PTR+ : 
004C BF 00 6E oe C AD MOVCS ’ (SP)> #0, “O76, SRMS_PTR + 0993 
0144 C6 4Ci5 8F BO 00087 MOVW #19477, $RMS_P : 
148 6 Opt C6 B MOVAB NMLSA NODE AIST, XAB, SRMS_PTR+4 : 
156 66 ; C MOVW ms. SRM +18 ; 
159 6 CA MOVB “ SAMS ite : 
158 «(6 90 OOOCF MOVB » SRMS_PT : 
O193 fe $0 OS MOVE. ee ma 46 
004C BF 00 ge ven p C 9D MOVCS ie: (SP)> #0, #76, SRMS_PTR + 1010 
O1DC }3= 6 tat SF 0 000E8 MOVW #19477, $RMS_P : 
O1E0 C6 0094 C6 E OOEF MOVAB NBL $A A PROTECTION XAB, SRMS_PTR+4 : 
OiEE C6 0408 &F O0F6 MOV a“ 5° ; 
O1F C6 3 OOFD MOVE so, shms* PTRe 23 : 
020A 6 4 9 010¢ MOVB. #4, $RMS~PTR+46 : 
0058 «BF 00 6E on 00 2¢ 90197 MOVCS #0, (SP)> #0, #88, SRMS_PTR + 1014 
0094 C6 5813 8F B0 dort MOVW #22547, nts PTR : 
009¢ C6 FFOO «8F BO 00118 MOVW 4-206 SRMS_PTR+8 : 
00AO (6 00010004 8F DO O011F MOVL #65546, $RMS_PTR+12 : 
56 DD 00128 PUSHL + 1018 
000000006 00 gi FB OO12A CALLS #1, SYSS$CREATE : 
52 0 pO 00131 MOVL RO, STATUS : 
10 38 £9 001 LBC _—s STATUS, 1$ ; 1020 
00000000' 00 SF 00137 PUSHAB P.AAU : 102 
7E 01 70 0013p mova #1, =(SP) : 1021 
000000006 00 03 FB 00140 CALLS #3, NMLSLOGFILEOP : 
50 2 00 00147 1$: MOVL STATUS, RO : 1024 
04 0014A RET : 1026 


; Routine Size: 331 bytes, Routine Base: S$CODE$ + O55F 
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NMLNODF IL Node File Routines for Network Management 16-Sep-1984 00:22:0 AX-11 Bliss-32 V4.0-742 Page 36 NM 
v04-000 nml$connect_node_rab Open node permanent dat 1 ~Sep-19 4 99:85:98 ENAL. SRE NMLNODF IL .832;1 Ln 135 V 
3 1035 1027 1 XSBTTL ‘'nml$connect_node_rab Open node permanent database file’ ; 
3 ; 8 ! 8 ! GLOBAL ROUTINE nml$Connett_node_rab = : 
: 1041 1030 1 !4¢4 ‘ 
; IR66 1031 1 ! FUNCTIONAL DESCRIPTION: : 
+ 104 1 ¢ 1 t This builds a RAB for accessing the node database file and ° 
3 1044 10 .% issues a connect. ‘ 
; 1045 1034 1! : 
3 1046 1035 1 ! FORMAL PARAMETERS: ° 
3; 1047 10 $ 1! NONE . 
: 1069 10 8 : ROUTINE VALUE 
: 1050 1830 1 ! COMPLETION CODES: 
: 1051 1040 1! Failure or RMS error 
H 1Se6 1041 1! 
3; 105 ek 1 I= 
3: 1054 1043 1 
: 1055 1044 BEGIN 
: 1056 1045 
: 1057 1046 ! 
3; 1058 1047 ! Initialize most of RAB here. Init it to use the primary key 
3; 1059 1048 ! (node address) to begin with. This is changed when other keys 
: 1060 1049 ' are needed. 
3 1061 1050 : 
: Hh 4 P 1051 SRAB_INIT (RAB = nml$a_netnode_rab, 
3; 106 P 1026 FAB = nmi $a_netnode_fab, 
3: 1064 P 105 KRF = nmn$c_add_key_ref, ! primary key = node address 
3 1065 P 1054 2 MBF = 10, 
; 1066 P1055 2 RAC = KEY 
: 1067 1056 : ROP = UIFS; 
3; 1068 1057 
3; 1069 1058 2! 
; 1070 1059 ' Connect RMS record stream. 
3 1071 1060 ! 
3; 1072 1061 RETURN SCONNECT (RAB = nml$a_netnode_rab); 
3; 1073 1062 1 END; ! of nml$connect_node_rab 
SRMS_PTR= NMLSA_NETNODE_RAB 
-EXTRN SYSSCONNECT 
56 00000000" we 00000 Ph iby ee ceeect NODE_RAB, Save R2,R3,R4,R5,R6 ; 1028 
0044 8F 00 6E 09 3 0908 moves #0, TSP); iS #68, SRMS_PTR ; 1056 
66 4401 SF 8 Bt MOVW #17409, SRMS_PTR 3 
04 Ab 10 p 16 MOVL #16, SRMS_PTR+4 ; 
3 A6 1 1A MOVB #1, S$RMS_PTR+30 3 
3 Ab OA00 «BF : I MOVW #2560, SRMS_PTR+53 ; 
C Ab PO A6 YE OVAB NMLSA_NETNODE_FAB, SRMS_PTR+60 3 
000000006 00 3) PB 90058 CALLS #1, SYSSCONNECT om 
04 3 RET : 1062 


3; Routine Size: 51 bytes, Routine Base: S$CODES + O6AA 
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Page 135 


nml 

: ge 19e2 | en ! End of modul 
Py ; Ena OF moagule 
: 1098 1065 1 2 
3; 1077 1066 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
:  $SOWNS 566 NOVEC, WRT, RD ,NOEXE.NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; SPLITS 212 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; $GLOBALS 8 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 SCODES 1757 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, » CON,NOPIC,ALIGN(2) 
3 Library Statistics 
Bree a, Pr ee a hs ' aie Syabols oocce--- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$0UA28:CNML.OBJINMLLIB. “3351 341 45 13 27 00:00.1 
: ~EseogDUASS CSHRLIBINMALIBRY 3 ei 4 887 é 0 47 00:00.2 
3 ~$255$DUA28:CSYSLIBISTARLET is3 776 151 1 581 00:02.1 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:NMLNODF IL/OBJ=OBJ$:NMLNODFIL MSRC$:NMLNODF IL/UPDATE=(ENHS$:NMLNODF IL) 
; Bi aes 1757 code, + 786 data bytes 

un Time: 


0: 
ope snes 01: 
Lines/CPU Min: 1 
Lexemes/CPU-Min: 328 


Memor 
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25. 
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Used: 219 pages 
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